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-- DebugUsefulDefs.mesa 
-- Edited by: 

Johnsson; August 30, 1978 11:23 AM 

DIRECTORY 

ControlDefs: FROM "controldef s" USING [Global FrameHandle] , 
SegmentDefs: FROM "segmentdef s" USING [ 

AccessOptions, FileHandle, FileSegmentHandle] ; 

DebugUsefulDefs: DEFINITIONS - 

BEGIN 

-- Only things that do not depend on debugger files 

-- User ProGS 

AddCommand: PROCEDURE [tag: STRING, proc: PROCEDURE]; 

-- Reading and Writing 

AREAD, MREAD, SREAO: PROCEDURE [a: UNSPECIFIED] RETURNS [UNSPECIFIED]; 

AWRITE, MWRITE, SWRITE: PROCEDURE [a, v: UNSPECIFIED]; 

CopyRead. CopyWrite: PROCEDURE [to. from: POINTER, nwords: CARDINAL]; 

LongCopyRead: PROCEDURE [to: POINTER, from: LONG POINTER, nwords: CARDINAL]; 

LongCopyWrite: PROCEDURE [to: LONG POINTER, from: POINTER, nwords: CARDINAL]; 

LongREAD: PROCEDURE [LONG POINTER] RETURNS [UNSPECIFIED]; 

LongWRITE: PROCEDURE [a: LONG POINTER, v: UNSPECIFIED]; 

-- The file cache 

CacheNewFile: PROCEDURE [name: STRING, access: SegmentDefs .AccessOptions] 
RETURNS [file: SegmentDefs . FileHandle] ; 

-- Module names 

FrameToModuleName: PROCEDURE [f: ControlDefs .GlobalFrameHandle, s: STRING]; 
ModuleNameToFrame: PROCEDURE [s: STRING] 
RETURNS [f: ControlDefs .Global FrameHandle] ; 

-- Symbols 

SymbolSegForFrame: PROCEDURE [f: ControlDefs. GlobalFrameHandle] 
RETURNS [seg: SegmentDefs . FileSegmentHandle]; 

-- Utilities 

DStringToLongNumber: PROCEDURE [s: STRING, radix: CARDINAL] 

RETURNS [LONG INTEGER]; 
StringExpressionToNumber: PROCEDURE [s: STRING, defradix: CARDINAL] 

RETURNS [v: UNSPECIFIED]; 
END.., 


